home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / keymakr.exe / lha / NAMEKEYL.PAS < prev    next >
Pascal/Delphi Source File  |  1990-09-30  |  3KB  |  69 lines
  1. UNIT NAMEKEYL;
  2.  
  3. (****************************************************************)
  4. (*                    AddrKeyL By C. Franz                      *)
  5. (*     Copyright (c) 1988, By Carl Franz & JFL Consulting       *)
  6. (*                                                              *)
  7. (*                       KeyMaker V2.0                          *)
  8. (*                                                              *)
  9. (*  Purpose: This TPU contains the name BUZZ words I use when   *)
  10. (*           scanning the address lines.  They are made up of   *)
  11. (*           standard abreviations for  titles and              *)
  12. (*           honorifics usually associated with a name.         *)
  13. (*                                                              *)
  14. (*                                                              *)
  15. (****************************************************************)
  16.  
  17. INTERFACE
  18.  
  19. CONST
  20.  
  21. { The TitleTbl contains standard abreviations for common name greetings or
  22.   titles.  These words are used by the NameToKey routine to remove extranious
  23.   words from the name string so that the first, last, and middle name can be
  24.   found and turned into a proper database key.
  25.   If you need to add or subtract words from this table, go ahead.  Remember
  26.   that TitleTblMax must also be maintained to reflect the current number of
  27.   words in the TitleTbl.  Also, TitleTbl MUST be in alphabetical order as I
  28.   use a binary search to find them.                                         }
  29.  
  30. TitleTblEnd = 62; {number of words in TitleTbl - must be accurate }
  31.  
  32.   TitleTbl : Array [1..TitleTblEnd] of string[8] =
  33.        ( '1ST', '2ND', 'ADMIRAL', 'AG', 'AMB', 'AMN', 'ATTY',
  34.          'BRIG', 'CMDR', 'CMSGT', 'COL', 'CPL', 'CPO',
  35.          'CPT', 'CWO', 'DA', 'DR', 'DRS', 'ENS', 'FR',
  36.          'GEN', 'GENERAL', 'GOV', 'GYSGT', 'HON',
  37.          'JDG', 'JG', 'LCDR', 'LCPL', 'LT', 'M/SGT',
  38.          'MAJ', 'MCPO', 'MISS', 'MOTHER', 'MR', 'MRS',
  39.          'MS', 'MSGR', 'PFC', 'PO', 'PROF', 'PSGT',
  40.          'PVT', 'RABBI', 'REP', 'REV', 'REVEREND',
  41.          'RT', 'S/SGT', 'SASGT', 'SCPO', 'SEN', 'SFC',
  42.          'SGT', 'SISTER', 'SMN', 'SMSGT', 'SR', 'SSM',
  43.          'T/SGT', 'WO' );
  44.  
  45. { The HonorTbl contains standard abreviations for common name Compliment or
  46.   Honorific words.
  47.   Again, these words are used by the NameToKey routine to remove extranious
  48.   words from the name string so that the first, last, and middle name can be
  49.   found and turned into a proper database key.
  50.   If you need to add or subtract words from this table, go ahead.  Remember
  51.   that HonorTblMax must also be maintained to reflect the current number of
  52.   words in the HonorTbl.  Also, HonorTbl MUST be in alphabetical order as I
  53.   use a binary search to find them.                                         }
  54.  
  55. HonorTblEnd = 39; {number of words in HonorTbl - MUST be accurate. }
  56.  
  57.   HonorTbl : Array [1..HonorTblEnd] of  string[8] =
  58.         ( 'AL', 'ASST', 'ATTY', 'CEO', 'CHAIRMAN',
  59.           'CHAPLAIN', 'CLU', 'CPA', 'CPAS', 'DA',
  60.           'DD', 'DDS', 'DMD', 'DR', 'DVM', 'ESQ', 'ET',
  61.           'EXEC', 'GOV', 'II', 'III', 'IV', 'JP', 'JR',
  62.           'LLB', 'LLD', 'LT', 'MD', 'ND', 'PERSONAL',
  63.           'PHD', 'PHYS', 'PRES', 'RA', 'REP', 'RET',
  64.           'RN', 'RVN', 'SR');
  65.  
  66. IMPLEMENTATION
  67.  
  68. END.
  69.